Profile of (eval 301)[Sub/Quote.pm:3]

Filename	(eval 301)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 13 statements in 153µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	7µs	20µs	JSON::Schema::Modern::Document::BEGIN@6.148
1	1	1	5µs	12µs	Method::Generate::Accessor::_Generated::BEGIN@19.150
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@11.149
0	0	0	0s	0s	JSON::Schema::Modern::Document::_set_errors

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $isa_check_for_errors = ${$_[1]->{"\$isa_check_for_errors"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5					package JSON::Schema::Modern::Document;
6	2	33µs	2	33µs	# spent 20µs (7+13) within JSON::Schema::Modern::Document::BEGIN@6.148 which was called: # once (7µs+13µs) by Sub::Quote::_clean_eval at line 6 no warnings 'closure'; # spent 20µs making 1 call to JSON::Schema::Modern::Document::BEGIN@6.148 # spent 13µs making 1 call to warnings::unimport
7					sub _set_errors {
8					($_QUOTED,$_UNQUOTED) if 0;
9					# BEGIN quote_sub PRELUDE
10					package Method::Generate::Accessor::_Generated;
11					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@11.149 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 16 BEGIN {
12	1	1µs			$^H = 1762;
13	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
14	1	3µs			%^H = (
15					);
16	1	17µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@11.149
17					# END quote_sub PRELUDE
18					scalar do { my $value = $_[1];
19	2	94µs	2	19µs	# spent 12µs (5+7) within Method::Generate::Accessor::_Generated::BEGIN@19.150 which was called: # once (5µs+7µs) by Sub::Quote::_clean_eval at line 19 (do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Error])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_errors, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Error\"]]", $value, "attribute_name","errors","attribute_step","isa check","mgaca","0","varname","\$self->{\"errors\"}"); $value }), # spent 12µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@19.150 # spent 7µs making 1 call to warnings::unimport
20					($_[0]->{"errors"} = $value),
21					($_[0]->{"errors"}),
22					} }
23	1	1µs			$$_UNQUOTED = \&_set_errors;
24					}
25	1	4µs			1;
26
27					;